Application.ModelessCmd("z 65")
Application.ExecuteCommand("Quick Filter Shapes")
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Edit Delete Group")
Application.ModelessCmd("z e")